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1 ZTITLE "EDTSSCRCHKREV = reverse video in select range’ 
¢ MODULE EDTSSCRCHKREV ( ! Reverse video in select range 
{DENT = *v04-000' ! File: SCRCHKREV.BLI Edit: JBS1004 
= 
5 BEGIN 


SOAR EAA AAAAEEEAAAAERAAEAAREAREEAE AEE AA EAE E EERE AEEAERAAAAEAAAAARERRAAEEEEES 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


Hd ire SOFTWARE IS S| ae UNDER A LICENSE AND MAY BE USED AND rine 


Ooo 


AUTHOR: Bob Kushlis, CREATION DATE: September 8, 1979 
MODIFIED BY: 


1-001 = Original. DJS 12-Feb-1981. This module was created by 
' ontrecting the routine CHECK_REVERSE from module SCREEN. 
! 1-002 - Regularize headers. JBS 15-Mar-198 

! 1-382 - Revise the definition of EDT$$G_CS_CHNO. JBS_ 27-Dec-1982 


ae 


- Improve the appearance of the Listing. JBS 17-Jun-1983 
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0 * 
0 ® 
1 1 t 
1 1 © 
} } 
a 
1 1 '® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
1 001 't INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
1 id '® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
1 01 '® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; id is TRANSFERRED. * 
. ® 
00 '® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
00 '® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
4 :* CORPORATION. * 
M th 
00 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
88 - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
: *® 
i] 
09 | enquandeusebinbenbesnasebeneboratbapsnenenianseeenitnnetaeenneneineehetiene 
' 
008 
i + 
O08 FACILITY: EDT == The DEC Standard Editor 
O03 ABSTRACT: 
003 This module checks to see if the current Line is within 
O28 the select range, and forces the screen into normal or 
8 ; reverse video, accordingly. 
z 4 ENVIRONMENT: Runs at any access mode - AST reentrant 
4 0 
4 
4 
4 
4 
4 
4 
4 
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é ! SSBTTL ‘Declarations’ 
; TABLE OF CONTENTS: 


REQUIRE ‘EDTSRC: TRAROUNAM’ ; 


FORWARD ROUTINE 
EDTSSSC_REVIDCHK : NOVALUE; 
' 


INCLUDE FILES: 


Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Se Ge Ge Ge Ge Ge Se Ge Ge Ge Se Gee 
~ an AAO 
SESSSSSSSSSESLSLELESLIGESESSSSSS 
wr ~NONO 
— ed ed ed ed ed td 8 8 = = 4 4 


3 REQUIRE "EDTSRC:EDTREQ’;: 
1 ' 
71 : i MACROS: 
i i] = 
if 6 ! EQUATED SYMBOLS: 
Se | Pees 
19 9 ; OWN STORAGE: 
1 i NONE 
: gil 
83 4 i EXTERNAL REFERENCES: 
85 6 ! In the routine 


AX-11 
EDT.SR 
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EDTSSCRCHKREV DTSSCRCHKREV = reverse video in select range 16-Sep-1984 01:29: AX-11 Bliss-32 V4.U-74 Page 
104-00 EDTSese Rev DCHK = reverse video $n Select ran 1 =3007 1382 93:82:38 EDT LSREISCRCHEREV OL I: 


ZSBTTL “EDTSSSC_REVIDCHK = reverse video in select range’ 


GLOBAL ROUTINE EDTSSSC_REVIDCHK ( | Reverse video in select range 
) : NOVALUE i Current position in Line buffer 
$ z 


'e4¢ 


; FUNCTIONAL DESCRIPTION: 


MET 


This routine checks to see if we are inside the select range, and forces 


SRLESRENLSSSLESLALLSSES 


wah TS; 
EDT$$G_CS_CHNO character position of cursor. 
relative Line number of cursor Line. 
Relative Line number of select. 
select position. 

Terminal type. 

Current Line buffer. 


Ww 
w 
oO 
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SSA-SEL-POS, 


SSIES 


: 1 

: 

3 1 

; 1 

3 1 

3 1 

3 ; 

; : the screen into either reverse or normal video based on the result. 
: ’ § : } FORMAL PARAMETERS: 

3 } 4 1 CF Current position in the Line buffer 
.-< ig i |! IMPLICIT INPUTS: 

[7% 74 «1:5 

; 1 75 1! EDTS$$G_CS_CHNO 

:; 1 ore 1! EDTSSL_CS_LN 

Ss 77 1! EDTSSL_SEC_LN 

.' 4 1! EDTSSA_SEL_POS 

3; (1 679 1! EDT$$G_TI_TYP 

; 110 06 1! EDTSS$T_LN_BUF 

3; 6111 ae F 

3; («11 6 ; 1 ! IMPLICIT OUTPUTS: 

s 11 06 1! 

; 11 1! NONE 

3 6115 > 29 

r] 138 1 ! ROUTINE VALUE: 

.. oF 7 oss 

; «6118 0688 1! NONE 

: «119 0689 1! 

; 120 0690 1 ! SIDE EFFECTS: 

s vel 691 1! 

. > § 92 1! Puts the screen in either normal or reverse video. 
. % 0695 1! 

3 1246 94 1 !<- 

: i 3 be9e BEGIN 

2 $ 6699 

; 128 98 _, ROUTINE 

: 129 99 EDTSSSC_CMPPOS, 

; 1 7 EDTSS$SC_REVID : NOVALUE, 
: 131 701 EDTSSSC_NONREVID : NOVALUE; 
. 3 § 708 
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3 Routine Size: 
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EDTSSCRCHKREV - reverse video in select range 9: AX-11 Bliss-32 V4.0-74 Pa 4 | 
EDTSesc REV DCHK = reverse video in anetren 4 1a-8ep- 1386 93: 32 35 ODT LSREISER RCHKREV.BLI; (3) 
rs CPOINT = CHSPTR (EDTSST_LN_BUF, .CP); 
ig IF (.EDTS$G_TI_TYP EQL TERM_VT100) 
4, THEN 
i8 IF (EDTSSSC_CMPPOS (. CPOINT, EDTSSL_CS_LN, EDTSS$T_LN_BUF + .EDTS$G_CS_CHNO) NEQ ! 
f 9 ; ener rsssce CMPPOS (.CPOINT, EDTS$L_SEC_LN, .EDTSSA_SEL_POS)) 
f ¢ EDTSSSC_REVID () | 
f 3 EDTSSSC_NONREVID (); 
726 END; ! of routine EDTS$SC_REVIDCHK 
-TITLE EDTSSCRCHKREV EDTSSCRCHKREV - reverse video in 
select range 
IDENT \V04-000\ 
~EXTRN EDTS$SC_ CMPPOS, EDTS$SC_REVID 
EXTRN EDT $38 SC“NONREVID 
«EXTRN EDTSS ets CHM, EDTSSL CS_L 
«EXTRN EDTS$L7 “SEC_L DTS$A_SEL— bos 
-EXTRN EDT$$G_TI “The. SO Tsst “LN_BUF 
PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
003C 00000 -ENTRY EDTSSSC_REVIDCHK, Save R2,R3,R4,R5 3 0659 
55 000000006 00 9€E 00002 MOVAB ED db T CN BuF, R5 3 
54 00000000G 00 9€ 00009 MOVAB EDTS$ST CAPPOS R4 3 
50 65 aS 001 oo EDTSST_CN “RO 3 0714 
52 50 04 AC C1 0001 ADDL3 CP, RO; Cpot Nf : 
02 000000006 9° D1 0001 CMPL gD TSsC_ TI_LTYP, #2 ; 0716 
D 3 OO1F BNEQ $ : 
50 000000006 2 D 4 1 MOVL EDT$$G_CS =Bur tho} 3; 0719 
6540 9F 00028 PUSHAB EDT$$T~LN~BUF Rol’ : 
000000006 99 9F 00028 PUSHAB EDTSS$L “tScL 3 
DD 00031 PUSHL CPOIN : 
64 9 FB 0033 CALLS #3, EDTSSSC_CMPPOS : 
53 DO 000 OVL RO, R 3 
000000006 BD 00 PUSHL EDf$$A_SEL_POS : 0720 
000000006 F QOO3F PUSHAB EDTS$S$L_SEL_LN ; 
DD 00045 PUSHL CPOIN 3 
4 g of 47 CALLS #3, EDTS$SC _CMPPOS : 
0 D 4A CMPL RS » RO : 
83 1 4D BEQL 3 
000000006 00 0 fe iH a i. EDTS$SC_REVID : 0722 
000000006 00 00 FB 0087 1$: CALLS #0, EDT$$SC_NONREVID ; 0734 
04 O005E 2$: RET ; 0726 
95 bytes, Routine Base: _EDTSCODE + 0000 
| 
| 
| 
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EDTSSCRCHKREV EDTSSCRCHKREV = reverse video in select range 1b-5¢ Sep-1984 9: AX-11 Bliss-32 V4.0-74 Page 5 
042000 ED TSes SC_REVIDCHK = reverse video $n select’ ren 1 mat 1 9}: $3 £38 EDT. SRCISCRCHKREV.BLI; “¢ ° sod 
: 160 7 1 END ! of module EDTSSCRCHKREV 

: 161 O78 1 so yp te : | 
; 162 731 0 ELUDOM 
: PSECT SUMMARY 

; Name Bytes Attributes 

: EDTSCODE 95 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

: Library Statistics 

SOSA ere eee Symbols ----- ane Pages Processing 

: File Total Loaded Percent Mapped Time 

: _$255$DUA28:CEDT.SRCJEDT.L32;1 377 4 1 40 00:00.2 

: ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 


COMMAND QUALIFIERS 
BLISS/CHECK= (FIELD, e INITIAL OPTIMIZE) /NOTRACEBACK/LIS=LIS$:SCRCHKREV/OBJ=OBJ$:SCRCHKREV MSRC$:SCRCHKREV.BLI/UPDATE=(ENHS:S 


CRCHKR 
Size: 95 code + 0 data bytes 
Run Time: 210.4 
Elapsed Time: : 30.8 
Lines/CPU Min: 4217 


“aoe A Rite 11475 
penety Used: 64 pages 
Compilation Complete 
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